home *** CD-ROM | disk | FTP | other *** search
/ The Original Shareware 1.1 / The Original Shareware (WeMake CDs)(Volume 1.1)(CDs, Inc)(1993).iso / 32 / sot.zip / SOTA.C < prev    next >
Text File  |  1988-08-15  |  587b  |  32 lines
  1. /********** The Son of Tetris Project ************/
  2.  
  3. /************ ARENA INITIALISATION ***********/
  4.  
  5. #include "sot.h"
  6.  
  7. void  init_arena(void)
  8. {
  9.   int x, y;
  10.  
  11.   for (x = 0; x < BLW; x++)  /* Clear the whole lot */
  12.     for (y = 0; y < BLH; y++)
  13.       arena[x][y] = CLEAR;
  14.  
  15.   for (x = 0; x < BLW; x++)  /* Draw top + bottom boundaries */
  16.   {
  17.     arena[x][0] = BORDER;
  18.     arena[x][BLH-1] = BORDER;
  19.   }
  20.  
  21.   for (y = 0; y < BLH; y++)  /* Draw left + right boundaries */
  22.   {
  23.     arena[0][y] = BORDER;
  24.     arena[BLW-1][y] = BORDER;
  25.   }
  26.  
  27. }  /*  init_arena  */
  28.  
  29.  
  30.  
  31.  
  32.